﻿Public Partial Class admin_materia
    Inherits System.Web.UI.Page


    Protected Sub btn_agregar_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles btn_agregar.Click
        Try
            Dim cl As New ASI_2UFG_BL.class_admin
            cl.Ingresar_aula("I", Txtnumero.Text, Txtdescripcion.Text, cmbestado_aula.Text, Me.TxtCapacidad.Text)
            If cl.log = 0 Then
                Me.Lblmensajeaula.Text = "Ingresado Con exito"
            Else
                Me.Lblmensajeaula.Text = "Error al ingresar el Registro"
            End If
        Catch ex As Exception
            MsgBox(ex, MsgBoxStyle.Critical)
        End Try
    End Sub

   
End Class